home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pov / povlisti.ngs / intee5.pov < prev    next >
Encoding:
Text File  |  1992-04-24  |  2.4 KB  |  95 lines
  1. // Persistence of Vision Raytracer
  2. // Intersection of two cylinders,  with holes cut from each one, in pink
  3. // marblized stone.
  4. // Image by Dan Farmer.
  5. // Demonstrates CSG intersection,  layered stone texture.
  6. // Time: about 3 hours @640x480+a0.2 on 486/33
  7.  
  8.  
  9. #include "include.inc"
  10.  
  11. camera {
  12.    location <0.0  10  -27>
  13.    direction <0.0 0.0  1.0>
  14.    up  <0.0  1.0  0.0>
  15.    right <1.33333 0.0 0.0>
  16.    look_at <0 0 0>
  17. }
  18.  
  19.  
  20. // Light source
  21. #declare Light1 = 0.95
  22. #declare Light2 = 0.75
  23. object { light_source { <-10 20 -25> color red Light1 green Light1 blue Light1 }}
  24. object { light_source { <0 0 0> color red Light2 green Light2 blue Light2   }}
  25.  
  26. #declare Annulus = 0.97
  27. object {
  28.     intersection {
  29.         quadric { Cylinder_X scale <1 1.02 1.02> }
  30.         quadric { Cylinder_Y scale <1.02 1 1.02>}
  31.         quadric { Cylinder_X inverse scale < 1  Annulus Annulus > }
  32.         quadric { Cylinder_Y inverse scale < Annulus  1 Annulus > }
  33.  
  34.     }
  35.     // Underlying surface is very subtly mottled with bozo
  36.     texture {
  37.         Silver_Metal
  38.         ambient 0.3
  39.     }
  40.  
  41. bounded_by {
  42.     sphere { <0 0 0> 1.5 }
  43. }
  44. scale <10 10 10>
  45. rotate <0 45 0>
  46. }
  47.  
  48. #declare Color1A = color DustyRose
  49. #declare Color1B = color DarkSlateGray
  50. #declare Color2A = color DarkSlateGray
  51.  
  52. object {
  53.     intersection {
  54.         quadric { Cylinder_X }
  55.         quadric { Cylinder_Y }
  56.         quadric { Cylinder_X inverse scale <1 0.5 0.5> }  // small hole
  57.         quadric { Cylinder_Y inverse scale <0.5 1 0.5> }  // ditto
  58.     }
  59.  
  60. // A great looking pinkish marble.  Except that it doesn't use marble
  61. // or agate... it's all done with bozo and granite!
  62.  
  63.     // Underlying surface is very subtly mottled with bozo in pinks and
  64.     // grays.
  65.     texture {
  66.         ambient 0.25
  67.         bozo
  68.         turbulence 0.25
  69.         color_map {
  70.             [0.0 1.0 color red 0.9 green 0.75 blue 0.75
  71.                      color red 0.6 green 0.6 blue 0.6 ]
  72.         }
  73.         scale <.4 .4 .4>
  74.     }
  75.  
  76.     // Second layer texture has some alpha values, yet a fair amount of color
  77.     // Viening is kept quite thin.
  78.     texture {
  79.         Glossy
  80.         granite
  81.         color_map {
  82.             [0.0 0.9 color Color1A alpha 1 color Color1A alpha 0.5 ]
  83.             [0.9 1.0  color Color1B color Color1B ]
  84.         }
  85.         scale <2 2 2>
  86.         phong 0.25
  87.         phong_size 75
  88.         brilliance 4
  89.     }
  90.  
  91.  
  92. scale <10 10 10>
  93. rotate <0 45 0>
  94. }
  95.